home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / GETFILE2.DCL < prev    next >
Text File  |  1989-06-02  |  213b  |  10 lines
  1. const
  2.    maxnumfiles =  200;
  3.    null =         #0;
  4. type
  5.    filestring =   string [64];
  6.    filearray =    array [1.. maxnumfiles] of filestring;
  7. var
  8.    filetable:     filearray;
  9.    filecount:     integer;
  10.